Міністерство освіти та науки України
Національний університет «Львівська політехніка»
ЗВІТ
З лабораторної роботи №5
З дисципліни: «Засоби системного програмування»
На тему: «Програмування задач лінійної структури.
Обчислення цілочисельних виразів з використанням знакових даних»
Львів 2010
ЗАВДАННЯ:
Створити *.exe програму, яка реалізовує обчислення, заданого варіантом виразу і зберігає результат в пам’яті. Вхідні операнди А, В, С, D, E, F вважати знаковими і довжиною в байтах, згідно з індексу; К – константа, довжина якої визначається значенням(згідно варіанту). Для її опису слід використати директиву EQU.
За допомогою Debug, відслідкувати правильність виконання програми (продемонструвати результати проміжних та кінцевих обчислень).
Скласти звіт про виконану роботу з приведенням тексту програми та коментарів до неї.
Дати відповідь на контрольні запитання.
ВАРІАНТ ЗАВДАННЯ:
№
Вираз
K
7
X=A4/B2-C1*(D1+E2-K)
717
Лістинг програми:
DOSSEG
.MODEL SMALL
.STACK 100h
.DATA
K EQU 1815
A LABEL word
dd -1000000
B dw 2
C db -10
D db 15
E dw -10
Temp1 dw 00h
Temp2 dw 00h,00h
Res dw 00h
Temp3 dw 00h,00h
X dw 00h,00h
;X=A4/B2-C1*(D1+E2-K)
.CODE
go:
mov ax,@data
mov ds,ax
mov al,D
cbw
add ax,E
;Temp1 <- ax - K
sub ax, K
mov Temp1,ax
;#====================================[DIV]===============================;
;Temp2 <- A / B
xor cx,cx
xor bx,bx
test A+2,8000h
jnz inverF
mov cx,1 ;if A > 0
second:
test B,8000h
jnz inverS
mov bx,1 ;if B > 0
div_p:
mov ax,A+2
mov dx,1
mul dx
div B
mov Temp2+2,ax
mov ax,A
div B
mov Temp2,ax
mov Res,dx
sub bx,cx
jz next
jnz inverR
inverF:
mov ax, A
mov dx, A+2
not ax
not dx
add ax,1
adc dx,0
mov A,ax
mov A+2,dx
jmp second
inverS:
mov ax, B
not ax
add ax,1
mov B,ax
jmp div_p
inverR:
mov ax, Temp2
mov dx, Temp2+2
not ax
not dx
add ax,1
adc dx,0
mov Temp2,ax
mov Temp2+2,dx
jmp next
;#====================================[DIV]===============================;
;Temp3 <- C*Temp1
;#====================================[MUL]===============================;
next: mov al,C
cbw
;xor dx,dx
mov bx,ax
mov ax,Temp1
imul bx
mov Temp3,ax
mov Temp3+2,dx
;#====================================[MUL]===============================;
;X <- Temp2 - Temp3
clc
mov ax,Temp2
mov dx,Temp2+2
sub ax,Temp3
mov X,ax
sbb dx,Temp3+2
mov X+2,dx
mov ah,4Ch
int 21h
end go
Висновок і результати роботи програми:
Висновок: я навчився виконувати операції над цілими знаковими даними.
Використовувати стандартні функції для виконання цих операцій.
